﻿Public Class Soal
    Dim xSoal As String
    Dim xJawaban As Integer
    Dim xPilihan As String

    Public Property Soal As String
        Get
            Return xSoal
        End Get
        Set(ByVal value As String)
            xSoal = value
        End Set
    End Property

    Public Property Jawaban As Integer
        Get
            Return xJawaban
        End Get
        Set(ByVal value As Integer)
            xJawaban = value
        End Set
    End Property
    Public Property Pilihan As String
        Get
            Return xPilihan
        End Get
        Set(ByVal value As String)
            xPilihan = value
        End Set
    End Property

    Public Sub refreshSoal(ByVal xPicture As Image, ByVal xPicA As Image, ByVal xPicB As Image, ByVal xPicC As Image, ByVal xPicD As Image)
        lblSoal.Text = xSoal
        picSoal.Image = xPicture
        picA.Image = xPicA
        picB.Image = xPicB
        picC.Image = xPicC
        picD.Image = xPicD
    End Sub
    Private Sub Soal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Public Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged
        If sender.tabindex = xJawaban Then
            formtes.lblTrue.Text += 1
            formtes.lblSkor.Text += 10
        Else
            formtes.lblFalse.Text += 1
            formtes.lblSkor.Text += 0
        End If
        Me.Dispose()
        'adioButton1.Visible = False
        'RadioButton2.Visible = False
        'RadioButton3.Visible = False
        'RadioButton4.Visible = False
    End Sub

    Private Sub lblSoal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblSoal.Click

    End Sub
End Class

